COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REDEFINE ROWCHK(CHECK,QUANT,CNTR,NUM)="IF CHECK THEN IF (CNTR MOD NUM)=0 THEN print(CNTR,"" QUANT PROCESSED THUS FAR!"",CRLF)"
C00005 00003	EXTERNAL SIMPLE PROCEDURE BUFINIT
C00007 ENDMK
C⊗;
REDEFINE ROWCHK(CHECK,QUANT,CNTR,NUM)="IF CHECK THEN IF (CNTR MOD NUM)=0 THEN print(CNTR,"" QUANT PROCESSED THUS FAR!"",CRLF)";

EXTERNAL BOOLEAN CHKROW;
EXTERNAL INTEGER ARRAY PAGFLT[0:16];
EXTERNAL SIMPLE PROCEDURE GETBUF(INTEGER ROWS,COLMS,BYTSZ,BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE FNDBUF(INTEGER SWITCH(0));
EXTERNAL SIMPLE PROCEDURE FREBUF(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE USEBUF(INTEGER BUFNO);
EXTERNAL SIMPLE PROCEDURE INDMP(STRING DEV,FILNAM;
                         INTEGER BUFNO; REFERENCE INTEGER EOF);
EXTERNAL SIMPLE PROCEDURE UINDMP(STRING DEV,FILNAM;
                         INTEGER BUFNO; REFERENCE INTEGER EOF; INTEGER SIZZ(256));
EXTERNAL SIMPLE PROCEDURE OUTDMP(STRING DEV,FILNAM;
                         INTEGER BUFNO; REFERENCE INTEGER EOF);
EXTERNAL SIMPLE PROCEDURE NHOUTDMP(STRING DEV,FILNAM;
                         INTEGER BUFNO; REFERENCE INTEGER EOF);
EXTERNAL SIMPLE INTEGER PROCEDURE GETPNT(INTEGER I,J,BUFNO);
EXTERNAL SIMPLE PROCEDURE PUTPNT(INTEGER I,J,VAL,BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE INPTR(INTEGER ROW,COLM,BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE OUTPTR(INTEGER ROW,COLM,BUFNO);

EXTERNAL SIMPLE INTEGER PROCEDURE ROWS(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE COLMS(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE BYTSZ(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE PAKCOL(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE BUFSZ(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE BUFST(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE THRHLD(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE SUPFAC(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE ISUBST(INTEGER BUFNO);
EXTERNAL SIMPLE INTEGER PROCEDURE JSUBST(INTEGER BUFNO);
EXTERNAL SIMPLE REAL PROCEDURE DMEAN(INTEGER BUFNO);
EXTERNAL SIMPLE REAL PROCEDURE DSTDEV(INTEGER BUFNO);

EXTERNAL SIMPLE PROCEDURE BUFINIT;
EXTERNAL SIMPLE PROCEDURE FORINIT;
EXTERNAL SIMPLE PROCEDURE BUFBLT(INTEGER INBUF,OUTBUF);
EXTERNAL SIMPLE PROCEDURE COPY(INTEGER INBUF,OUTBUF);
EXTERNAL SIMPLE PROCEDURE ZROBUF(INTEGER BUFNO);
EXTERNAL SIMPLE PROCEDURE PUTSUB(INTEGER STARTI,STARTJ,BUFNO);
EXTERNAL PROCEDURE COPHDR(INTEGER INHBUF,OUTHBUF);
EXTERNAL SIMPLE PROCEDURE PUTTHR(INTEGER THRSHLD,BUFNO);
EXTERNAL SIMPLE PROCEDURE PUTSUP(INTEGER SUPLEVEL,BUFNO);
EXTERNAL SIMPLE PROCEDURE PUTMEN(REAL MEAN; INTEGER BUFNO);
EXTERNAL SIMPLE PROCEDURE PUTDEV(REAL STDEV; INTEGER BUFNO);
EXTERNAL SIMPLE PROCEDURE PAGSET(INTEGER PAGES);
EXTERNAL SIMPLE PROCEDURE DATRAN(STRING INFIL,OUTFIL; INTEGER ROWS,COLMS,BYTSIZ);

EXTERNAL SIMPLE PROCEDURE NEWS(INTEGER SWIT);
EXTERNAL SIMPLE INTEGER PROCEDURE CORSIZ;
EXTERNAL SIMPLE INTEGER PROCEDURE NUMJBS;
EXTERNAL SIMPLE PROCEDURE GETHDR(INTEGER ARRAY HDR; INTEGER BUF);
EXTERNAL SIMPLE PROCEDURE PUTHDR(INTEGER ARRAY HDR; INTEGER BUF);